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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 

3 FACILITY: BASIC code support 

: ABSTRACT: 

: This module implements the BASIC-PLUS-2 XLATE function 
: ENVIRONMENT: User Mode, AST Reentrant 

> AUTHOR: R. WILL, CREATION DATE: 18-May-79 

: MODIFIED BY: 

; ill, : VERSION 1 

3 1 = Origina 

3 § hange calls to STRSCOPY. JBS 16-JUL-1979 

: 4 


-¢ 
- Change a INCW R1 to INCL R1. RI contains an address. FM 5-FEB-81 
- Change shared external references to G* RNH 25-Sep-81 
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DECLARATIONS 


> EXTERNAL DECLARATIONS: 


-DSABL 


~EXTRN 


> MACROS: 


> OWN STORAGE: 


GBL 


STRSCOPY_DX_R8 
STRSCOPY_R_RB 
STRSGET1-DR 
STRSFREET DX 
LIBSGET VA 
LIBSFREE_vM 


: EQUATED SYMBOLS: 


null = *x00 


+ PSECT DECLARATIONS: 


.PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT. LONG 


define descriptor offsets 


Prevent undeclared 
symbols from being 
automatically global. 


copy input orreng to temp 
and temp string to output 
copy temp str to dest str 
allocate temp etring 
deallocate temp string 
allocate heap memory 
deallocate heap memory 
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9 
;*+* 
$4 3; FUNCTIONAL DESCRIPTION: 
88 : This routine implements the BASIC-PLUS-2 XLATE function. 
97 ; For AST renenerensy the routine will create a local dynamic strin 
38 3 descr ptor and call STRSCOPY to copy the source string to the loca 
0 99 ; Cinstead of using any mechanism to prevent AST level routines 
8 130 3 from writing to the source string and moving it from under us). 
101 ; The routine will also create a local Gynente etring descriptor and 
0 1 ¢ 3 call allocate to get a shih to translate into. The routine will 
8p 103 ; then use both local str ngs which will not need to get larger) to do 
104 ; the translating. The routine will use the MOVTUC to translate until 
000 105; the translated character is the NULL character. The NULL will not be 
+4 1 $ : written to the destination gee une and the translation will continue 
00 1 3 with the next character. After the srone tac tog s finished, 
000 + $ the routine will call STRSCOPY to copy the edited string to the 
000 109; destination string. 
0000 110; 
44 af 3; CALLING SEQUENCE: 
44 118 ; CALL BASSXLATE (dest_string.wx.dx, src_string.rx.dx, table.rx.dx) 
9000 115 : INPUT PARAMETERS: 
googoons 900) 117 are string = 8 
able = 
3288 118 3 
it 120 ; IMPLICIT INPUTS: 
0900 152 ; NONE 
000 1 : : 
0000 124 ; OUTPUT PARAMETERS: 
44 125 ; 
00000004 0000 126 dest_string = 4 
$000 i ; : IMPLICIT OUTPUTS: 
9000 129 : 
4 } , 3 NONE 
$00 1 : $ FUNCTION VALUE: 
4 } i 3; COMPLETION CODES: 
ob 5: NONE 
9 ; ; SIDE EFFECTS: 

0 1 5 F This routine calls STRSCOPY and STRSFREE1 and therefore will ; 
4 140 ; allocate dynamic string space to a temporary, may allocate dynamic 
0 141 ; string space to the destination string, and may cause any of the 

Bp 146 3 their error messages to be signalled. This routine also calls 
0 143 ; LIBSGET_VM and LIBSFREE_VM and so any of their errors may be 
144 ; signalled. 
145; 
i 
41FC 148 ENTRY BASSXLATE, “M<R2,R3,R4.R5,R6.R7,R8,1V> 
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7E D4 00 
O20E0000 8F dD bbe 
50.) =6SE 0s 0 Boe 
Q0000000"GF 16 bi? 
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0017 
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08 Bs F 0021 
00000000 ° GF 2 FB 0024 
0028 
0028 
0028 
0028 
0028 
88 8 
7E D4 0028 
7E 00000100 8F D0 002d 
04 AE DF 0034 
04 AE DF 0037 
Q00000000'GF 02 FB ta 
0c BC 7D 0041 
04 BE 0100 8F O00 61 50 2C 0045 
Q04E 
004E 
004E 
Bate 
04E 
Q04E 
O4E 
Ree 
de 
50 10 AE 7D Oct 

54 O8 AE 7D 005 
53 04 AE DO 0056 
5A 
5A 
5A 
OSA 
5A 
5A 
5A 
65 54 63 00 61 50 2 5A 
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s¢ 
: Create a local descriptor and copy the input string to it using STRSCOPY 


rage src_string(AP), R1 3 
PUSHL  #<<DSCSK_CLASS_D @ 24> ! <DSCSK_bT 
MOVL SP, RO ; 
JSB8 G*STRSCOPY_DX_R8 ; 


pointer to src gteing 
ng 


;_address of local str 


YPE_T @ 16>> 

type. class and length 
RO points to local descriptr 
copy string to local 


g¢ 
; Create a Loe gt Gece toter and allocate space to it, to use as destination 


3 string for MOV 


CLRL = = (SP) : 
PUSHL #<<DSCS$K_CLASS_D @ 24> ! <DSCSK_bT 
PUSHL SP : 
PUSHAW asrc seeingtat) : 
CALLS #2, G*STRSGET1_Dx 3 


:+ 


address of local string 
YPE_T @ 16>> 

fill type. class and Len 

pores to descriptor 
ength to allocate 
allocate space 


: Call LIBSGET_VM to allocate 256 bytes to use for translate table 


3 and create the translation table 


CLRL = = (SP) ; 
MOVL #256, =(SP) : 
PUSHAL 4(SP5 : 
PUSHAL 4(SP) : 
CALLS #2, G*LIBSGET_VM : 
OVG atable(AP), RO : 
MOVCS RO, (R1), Mmull, #256, a4(SP) ;: 


+ 
fill reg tetere for the MOVTUC Loop 
R src len 


: R1 


src pointer 


R3 address of translation table 

R4 dest len 

RS dest pointer 

MOVQ 16(SP), RO 3 
MOVQ 8(SP), R4 : 
MOVL 4(SP), R3 3 


3¢ 


3; Registers are initialized, so MOVTUC until 


; space for memory pointer 
; # bytes to allocate 


ptr to output parameter 

ptr to byte count 

allocate the space 

get table pointer and length 
ill the translate table 


RO & R1 <= Len & ptr for src 
R4ERS <- Len & ptr for dest 


; R3 has addr of extendd table 


et a NULL, increment src ptr 


3; decrement src len to describe string remaining after NULL translation. 


3; Then continue translating. 


MOVTUC RO, (R1), Mmull, (R3), R4, (RS) ; 


find null translation 


NE 
; 


f K 7 
BASSXLATE ; 16-SEP-1984 00:01:59 VAX/VMS Macro V04-00 Page | 
me ht BASSXLATE # Pertorm BASIC XLATE functi peat Ti 98:00; H EBASRTL. SRE JBASXLATE MAR: 1 . 3) 
0 ; § TSTW RO 
8 BEQLU p,nese : all was translated 
8 8 ECW R 3; subtract 1 from remain len 
1 6 6 INCL R1 ; add 1 to remaining pointer 
EF 3 19 RB 1$ 3 process remaining 
68 12 ;+ 
68 18 3; The eering has been translated. Free the VM used for the translate table. 
68 14 ; Copy the enporory storage to the destination string. (Note that the trans- 
68 15 ; lated Length is the source length minus the number of unfilled bytes in the 
68 18 ; temporary string left in R4 by the MOVTUC.) Deallocate the temporary string 
re} ! 3; and the copied source string. Clean up the stack and return. 
068 i$ 
068 0 FINISH: 
04 AE OF 0068 1 PUSHAL 4(SP) 3; point to VM pointer 
04 ag OF Bor ¢ PUSHAL 4(SP) 3 point to VM length 
Q00000000'GF 0 FB 007 CALLS #2, G*LIBSFREE_VM ; free the VM table cop 
8—E 7C Baee : CLRQ (SP)+ 3 clean descr from stac | 
51 08 BC 54 A3 SOFA 6 SUBW3 =R4, Asrc_string(AP), R1 3; compute & store temp len 
5 04 AE 00 4 7 OVL 4(SP), R2 3 point to src for copy 
5 04 AC 00 0083 8 MOVL dest_string(AP), RO ; dest for copy 
00000000'GF 16 et 4 JSB G*STRSCOPY_R_R8 3 copy 
6— DF 008D 31 PUSHAL (SP) i: point to temp dest descr 
00000000'GF 01 FB OO08F 3 CALLS #1, G*STRSFREE1_DX ; deallocate it 
8 7C B8a6 3 CLRQ (SP)+ ; clean the descr from stack 
6—E DF 0098 35 PUSHAL (SP) 3: point to temp src descr 
00000000'GF 01 FB OQO09A 36 CALLS #1, G*STRSFREE1_DX ; deallocate it | 
8 7C Bhat * CLRQ (SP)+ ; clean the descr from stack 
04 OOA $39 RET 
90A4 240 
O0AS 241 END 3; End of BASSXLATE | 
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Symbol table ~See198e JOskb27 EBASKTe aesbaserase mars? 2% (8, 
BASSXLATE ORG 02 
DEST STRING = 4 
DSCSRK _CLASS_D = 2 
DSCSK “DTYPE_ = E 
FINISA 000068 R 0¢ 
LIBSFREE_VM eeereene x 
LIBSGET_0M eeeeeene x 00 
NULL = 0000000 
SRC_STRING = 0000000 
STRSCOPY_DX_RB eenenere = § x 60 
STRSCOPY-R_RB ekerenee x 0 
STRSEREGT Bx eeeeeeee =X 8 
STRSGET1_OXx teeeeere =X 
TABLE = 0000000C 
Poser eo ewe sen eeen + 
! ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS. 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL oo § rs NOE XE “— NOWRT NOVEC BYTE 
s$ 00000000 < a2 @ ©. den weir USR CON ABS LCL NOSHR- EXE WRT NOVEC BYTE 
BASSCODE QOO0000A4 ( 164.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Geucewenveeeneuseseeevece 
! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 08 000.08 00:00:00.65 
sonsend processing 117 00:00:00.4 00:00:02.18 
s 1 137 00:00:01.84 00:00:04.30 
eS table sort 0 BR B08. 2t 00:00:00.31 
ass 2 56 0:00:00.61 00:00:01.58 
Symbol table output 3 BF 88: 85°05 00:00: +08 08 
Psect synopsis output 88:80: 00°0 00:00:00.0 
Cross-reference output 0:00:00.00 00:00:00.00 
Assembler run totals 348 00:00:03.17 00:00:09.06 
The working set Limit was 1050 pages. 


9144 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 
There were pages of symbol table space allocated to hold 145 non-local 
41 source Lines were read in Pass 1, producing 13 object records in Pass 


and 1 local symbols. 
pages of virtual memory were used to define 9 macros. 


wesw rene ee ser swoon eee moe ewe + 


Macro library name 


_$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 
190 GETS were required to define 4 macros. 


RAT Ro mun seat tates " "SEREEIBEL Q8s0:89 RAE. SRESBUEEAREuasn "9° by 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASXLATE/OBJ=OBJ$:BASXLATE MSRC$:BASXLATE/UPDATE=(ENH$:BASXLATE) 
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